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ABSTRACT 



An analysis of two commercially available Speech 
Understanding Systems (SUS) was conducted. Each system was 
tested against various background noise conditions. Results 
obtained were compared with current criteria for SUS applica- 
tion In aircraft. Additionally, since the P-3 Orion aircraft 
is being considered as a SUS test aircraft, a survey of Fleet 
P-3- pilots was conducted. Their opinion was sought on what 
a SUS equipped microprocessor should be capable of accomplishing 
as an aid to the flight crew. 
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I. INTRODUCTION 



Recent years have seen a remarkable advance in aircraft 
technology, along with a corresponding increase in aircraft 
complexity and pilot workload. Since a high pilot workload 
has always been associated with a high aircraft accident rate, 
it is most desirable to find some means of reducing pilot 
workload as much as possible. 

One possible answer lies in the area of Speech Understand- 
ing microprocessor systems. These would allow the pilot of an 
aircraft so equipped to verbally command a microprocessor 
system which in turn would cause the aircraft to follow the 
pilot's instructions ,• such as a climb or descent to a specified 
altitude. The pilot might also request information from the 
computer, such as a Maximum range profile or to display the 
appropriate emergency checklist as required. Voice communica- 
tion with the computer would free the pilot of the necessity 
of keying in instructions as current technology requires. 

Speech Understanding Systems (SUS) have experienced rapid 
advancement in recent years also, with both government and 
private Industry sponsored programs being undertaken. 

Reference 1 focuses on the operational military applications 
of Speech Understanding Systems and provides an overview of 
the nontechnical factors in the military environment which are 
likely to affect the introduction of SUS capabilities in 
military systems. 
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Microprocessor hobbyists have also developed systems not 
only for speech understanding but speech synthesis as well. 

Two such systems were available at the Naval Postgraduate 
School through the Human Factors Engineering Lab. Heuristics, 
Inc. had developed a system called SPEECHLAB for speech 
understanding, and Coraputalker Consultants had developed 
COMPUTALKER for speech synthesis. 

Both systems have advantages which make them particularly 
applicable to aircraft cockpit design. They are both small In 
physical size and require less than 6 k of RAM for their 
controlling programs. Vocabulary size dictates the actual 
amount of RAM required by each system, with 5K being adequate 
for a l6 word vocabulary In the SPEECHLAB system. The 
COMPUTALKER system, as currently structured, allows the user 
to encode words or phrases, according to phonetic spelling 
rules. In up to characters at a time. Since the average 
word requires less than 15 such characters, phrases of 
approximately four words could easily be constructed. The 
main advantage of the COMPUTALKER system Is that many such 
phrases could be stored In available memory, loaded as required 
Into the COMPUTALKER Input buffer area, and quickly output as 
recognizable speech. This eliminates the requirement for a 
complicated algorithm to assemble prestored words Into phrases, 
thus saving valuable memory area. The current COMPUTALKER 
Input buffer requires approximately 2^K of memory for encoding 
the 76 characters. Both systems are relatively Inexpensive, 
with current models available for under $300 In kit form. 

\Ref. 2 and 3 ] 
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This study was undertaken to determine the performance of 
each system as well as the possibility of Incorporation In an 
aircraft cockpit control system. Specific goals were: 

1) Determine response time and accuracy of SPEECHLAB under 
low background noise level conditions. 

2) Determine the recognlzablllty of COMPUTALKER under low 
background noise conditions. 

3 ) Repeating goals l) and 2) with varying levels of back- 
ground noise Intensity to determine the limiting tolerance 
of each system to background Interference. 

Current studies being carried on by the Navy Indicate the 
possible use of the P-3 Orion aircraft as a test bed for voice 
controlled cockpit systems [fief. ^ . With this In mind, a 
survey of Fleet P-3 pilots was conducted to determine their 
reaction of the possible Incorporation of such a voice 
controlled system In the P-3. The survey questions used are 
listed In Appendix C. The answers to the questions are 
discussed In the Results and Conclusions section of this report. 
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II. DESCRIPTION OF APPARATUS 



A. SPEECHLAB 

The SPEECHLAB hardware, manufactured by Hueristics, Inc., 
Los Altos, 'California, is compatible with the 8o80 micro- 
processor developed by Intel and employs the SlOO bus 

Audio input is amplified and passed through three band 
pass filters encompassing the range from I50 to 900 Hz, 900 Hz 
to 2.2 KHz, and 2.2 to 5 KHz. These ranges roughly correspond 
to the first three resonances of the human vocal tract. A 
zero-crossing detector generates a voltage proportional to the 
number of times the raw waveform crosses the rest level in a 
given period of time. The signal is then passed to a six-bit 
A/D converter. The output of this A/D converter is fed 
directly onto the computer data bus. 

The controlling software programs utilized in this experi- 
ment were taken from the manual supplied with the SPEECHLAB 
board and modified for use on the Human Factor Engineering 
Labs' 8080 microprocessor. Investigations conducted prior to 
commencement of the experiment showed the algorithm which used 
Euclidian distance measure to be the most accurate of the 
programs in the manual. Of the most importance in this parti- 
cular program was the variable S, which represented the number 
of divisions into which the speech utterance would be divided 
in order to be analyzed by the program. This parameter, set at 
64 as provided, was shown to have the greatest effect on 
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Figure 1. SPEECHLAB Hardware Board 












response time. Response time was measured from the closing 
of the speech window to the time the machine began to type 
the recognition message on the teletype. The speech window 
width as set by the algorithm was approximately 2.5 sec In 
duration. This Is a variable and could be changed by the 
operator. The beginning of the speech window was signaled by 
a beep at the microphone In use. A similar beep signaled the 
close of the window [Ref. |]. The Basic and controlling 
programs used by speech lab are Included as Appendix A. 

B. COMPUTALKER 

The COMPUTALKER hardware was developed by Computalker 
Consultants, of Santa Monica, California [[Plg 

The COMPUTALKER board Is controlled by CSRl, a software 
program provided with the system. CSRl Is a phoneme-input 
speech synthesizer program. It contains definitions In the 
form of various table entries for 55 different input symbols 
which represent the phonemes of the English language along with 
several punctuation marks. CSRl accepts a phonetic input string 
consisting of these phonemes and punctuation symbols and decimal 
digits which specify vowel stress levels. This input string Is 
parsed to fill out a phonetic feature matrix for the desired 
synthetic phrase. A set of phonetic structure rules scans the 
matrix to look for feature patterns and combinations which 
must be adjusted to conform to English pronunciation. After 
these adjustments, a parameter generator algorithm scans the 
matrix and produces the control parameters needed to operate 
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Figure 2. COMPUTALKER Hardware Board 





the COMPUTALKER Synthesizer ^ef The COMPUTALKER board 

is shown in Figure 2. The CSRl program is included as 
Appendix B. 

C. SOUND LEVEL METER 

The sound level meter used during the experiment was the 
General Radio Corporation, Type 1565-B. The range of the 
instrument was from 40 dB to 140 dB, referenced to 20 micro 
Newtons per square meter. Unless otherwise noted, all sound 
pressure level measurements in this experiment were made with 
this sound level meter. The meter also provided for the use 
of three different weighting levels. A, B, or C, which conform- 
to ANSI SI. 4-1971 Type 2 and lEC 123,1961 specifications. 
Weighting C was chosen for use in this experiment as it 
provided the flatter response curve over a wider range of 
frequencies than either of the other weightings Q^'ig. |j . 

D. MAICO AUDIOMETER 

The MAICO Dual Channel Research and Diagnostic Audiometer, 
Model MA-24B, was used to provide the background noise and pure 
tones used during the course of this investigation. The Hearing 
Threshold Level in each channel could be controlled accurately 
through the range from -3 dB to 112 dB. This equated to a 
range of from 47 dB to 162 dB when referenced to 20 micro 
Newtons per square meter p^’ig. ^ . 

E. MICROPROCESSOR 

The microprocessor used for the experiments was built from 
a kit manufactured by IMSAI Corporation. The basic kit utilizes 
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Figure 3. Sound Level Meter 
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l6 



Figure 4. Audiometer 






the INTEL 8o80 microprocessor chip and standard INTEL 8080 
instructions. An IMSAI Multiple Input /Output board was used 
for input /output . Memory available Included 4K of PROM and 
32 K of FIAM. Sufficient space was available for up to 32K 
additional memory, assuming the same type of memory packaging. 
Figure 5 shows the 8 O 8 O microprocessor with the SPEECHLAB, 
COMPUTALKER, memory and I/O boards Installed. 

Figure 6 shows the Audiometer and Microprocessor set up 
outside the test booth. The microprocessor was controlled with 
a standard teletype keyboard. Figure 7 shows the Interior of 
the test booth. All inputs to the booth were channeled through 
the patch box on the right of the table. The microphone stand 
had full freedom of motion which allowed the subjects to 
position the microphone within one inch of their lips while 
speaking. The speakers used to introduce noise, tones and the 
COMPUTALKER speech are located in the rear of the booth. 
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Figure 5. 8o80 Microprocessor with SFEECHLAB and COMPUTALKER Installed 
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Figure 6. Audiometer and Microprocessor Outside Test Booth 
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Figure 7. Microphone Setup Inside Test Booth 








III. EXPERIMENTAL PROCEDURE 



All experiments were conducted at the Human Factors 
Engineering Laboratory at the Naval Postgraduate School. 

A. SPEECHLAB TESTING 

For the voice recognition tests, each subject trained the 
SPEECHLAB unit on the ten word vocabulary selected from Ref. 1. 
No background noise was Introduced into the booth in which the 
subjects operated from. Noise level in the booth under these 
conditions was measured at 40 dB using the sound level meter. 
After training, the performance mode of the system was entered. 
Background noise level remained at 40 dB for the tests. The 
subject was required to read through the word list, in order, 
five times, thus obtaining fifty samples of speech utterances 
from each subject per test. Each test was repeated three times, 
with the S parameter of the SPEECHLAB algorithm set at 64, 32, 
and l6. This was done to test the performance of the algorithm 
with varying sample sizes. Typical results are shown in 
Figure 8. 

Next, various background noise levels were introduced in 
the booth to determine system response to noise. The subjects 

followed the same procedures as in the no-noise tests. The S 
parameter remained set at 64 throughout the tests as this was 

determined to be the most accurate mode for SPEECHLAB. Back- 
ground noise level was raised in 5 dB Increments from 6o dB to 
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WORD LIST 

1) ALTITUDE 

2) SPEED 

3) HEADING 

4) POSITION 
5.) TACAN 



Total ^ = 0.86 
50 

6) VOR 

7) ILS 

8) GLIDES LOPE 

9) CLIMB 
0) DESCEND 



Figure 8. Typical Results of SPEECHLAB Tests 
(with low background noise) 
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80 dB. However, in no test was the SPEECHLAB system able to 
accomodate more than 7^ dB. Typical results for this series 
of tests are shown in Figure 9* 

To test the effect of’ frequency on the SPEECHLAB system, 
pure tones ranging from 4000 Hz to 8000 Hz were induced and 
the tests repeated by the subjects. Incremental tone steps 
were 1000 Hz. Typical test results are shown in Fig. 10. A 
summary of results from the SPEECHLAB tests is presented in 
Fig. 11. 

B. COMPUTALKER TESTING 

To test the accuracy with which COMPUTALKER produced speech, 
the same word list used for the SPEECHLAB tests was prepared 
for use with COMPUTALKER. Each word on the list was rearranged 
according to the phonetic spelling rules used by COMPUTALKER. 
Various combinations of phonetic spellings were tried until an 
acceptable utterance was produced. This list of words, which 
were now optimized to the principal researcher, was then 
presented to each of the subjects. Re-optimization, where 
necessary, was done until each subject readily recognized each 
word on the list. The word list and final phonetic spelling 
was as follows: 



(1) 


ALTITUDE 


-- AH2LTTIYTUX3D 


(2) 


SPEED — 


SHPQIY3DX 


(3) 


HEADING 


— HHEHDIYNGX 


(4) 


POSITION 


-- POHSIHISSIYOHN 


(5) 


TACAN - 


- TAE3QKAAN 
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DATE 11 Aug 70 


BACKGROUND NOISE 65 dB 


SUBJECT Fifer 


FREQUENCY 


SPEECHLAB X S R2 


TIME (AVERAGE) 26 sec 


COMPUTALKER 




PROGRAM 






Total ^ ^ ^ 

50 

6) VOR 

7) ILS 

8) GLIDES LOPE 

9) CLIMB 
0) DESCEND 

Figure 9. Typical Results of SPEECHLAB Tests 
(with various noise levels) 
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WORD LIST 

1) ALTITUDE 

2) SPEED 

3) HEADING 

4) POSITION 
5.) TACAN 



DATE 22 Aug 78 



SUBJECT Buresh 


SPEECHLAB X 


S 64 


COMPUTALKER 




PROGRAM 1 





BACKGROUND NOISE 75 dB 
FREQUENCY 4000 Hz 
TIME (AVERAGE) 28 sec 




WORD LIST 

1) ALTITUDE 

2) SPEED 

3) HEADING 

4) POSITION 
5.) TACAN 

Figure 10. 



Total ^ 

50 

6) VOR 

7) ILS 

8) GLIDES LOPE 

9) CLIMB 
0) DESCEND 



0.82 



Typical Results of SPEECHLAB Tests 
(with various tone levels) 
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NO BACK(2iOUND 
NOISE (1) 




BACKGROUND NOISE 

_ ____..L2J.. _ , 




BACKGROUND TONE 

13.) 


S 


dB 


Hz 


SUBJECT 


64 


32 


16 


60 


65 


70 


74 


4K 


5K 


6 k 


7K 


8K 


1 


100 


84 


58 


86 


70 


42 


37 


100 


98 


82 


92 


90 


2 


76 


46 


32 


32 


24 


33 


20 


76 


72 


72 


72 


70 


3 


86 


78 


52 


78 


60 


37 


27 


82 


86 


86 


80 ■ 


80 


4 


90 


82 


60 


82 


60 


30 


24 


80 


82 


75 


75 


78 




























AVERAGE 


88 


72.5 


50.5 


69.5 


53.5 


35.5 


27 


84.5 


84.5 


78.8 


79.8 


79.5 



(1) With no noise input to the test booth, the 
noise level inside the booth was measured to 
be 40 dB. 

(2) Background noise was broadband white noise. 

(3) Pure tones were input at 75 dB. 



Figure 11. Summary of Results from SPEECHLAB Testing 
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(6) VOR — WIYl, OHIUW, REHIR 

(7) ILS — AYl, ELL, SS 

(8) GLIDESLOPE — GXLAY3DSLUHP 

(9) CLIMB — KLAYIMB 
(0) DESCEND — DIYSEHND 

The phonetic spelling rules used by COMPUTALKER are shown in 
Fig. 12. 
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Consonants Vowels Punctuation 



p 


P 


pie 


lY 


i 


heed 


space 


word boundary 


T 


t 


tie 


IH 


1 


h i d 


t 


pause/s i lence 


K 


k 


key 


EY 


6L 


hayed 


. 


falling pitch 


B 


b 


by 


EH 


e 


head 


? 


rising pi tch 


0 


d 


d i e 


AE 


a 


had 


return 


end of input 


G 


g 


guy 


AA 


a 


hod 






M 


•m 


my 


AO 


0 


hawed 






N 


71 


n i gh 


OW 


0^ 


hoed 


Stress Marks 


NX 


V 


hang 


UH 


Q 


hood 






F 


f 


fie 


UW 




who ' d 


0 


no stress 


V 


V 


vie 


ER 


ar 


herd 


1 

1 


primary (max) stress 


TH 


e 


thigh 


AH 


A 


Hudd 


2 


secondary stress 


OH 




thy 


AY 




h i de 


3 


tertiary stress 


S 


s 


sigh 


AW 




how 


k 


etc. 


Z 


z 


zoo 


OY 


01 


boy 


5 




SH 


/ 


shy 


AX 


3 


a.bout 


> 5 


no stress 


ZH 


3 


vision 


IX 


i 


DavJ_d 






L 


t 


1 ie 


OH 


0 


core 






W 


w 


we 


UX 


U 


too 






R 


r 


rye 








Severa 1 


other symbols are used 


Y 


J 


you 








Internally by certain rules. 


HH 


h 


high 








These may also be used in the 


CH 


if 


chime 








input string. 


JH 


<^3 


j i ve 












WH 




why 








KX 


COO (K befor*e back vowel) 


EL 


i 


battle 








GX 


goo (G before back vowel) 


EM 


7V 


bottom 








RX 


csjld (R after a vowel) 


EN 


77 


button. 








LX 


kijJL (L after a vowel) 


Q 


? 


(glotta 1 


stop) 






DX 


pi^y (T betv/een vowels) 














YX 


d i phthong end i ng 














WX 


diphthong ending 



Table 1 CSRl Phonetic Input Symbols 



Stress marks may be placed on any vowe I in the form of a foliating 
digit from 5 (v/eakcst stated stress) to 1 (maximum stress). Any stress 
digit greater than 5 will be ignored. Ending an input string with a 
period or question mark has the effect of changing the ending pitch, 
falling or rising, respectively. A comma has no effect on the pitch, 
but only introduces a pause in the pronunciation. 



Figure 12. COMPUTALKER Phonetic Spelling Rules 
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IV. RESULTS AND CONCLUSIONS 



A. SPEECHLAB 

Results from the SPEECHLAB tests showed that while the 
performance approximated what the manufacturers claim, i.e., 
acceptability percentage in the high nineties, any significant 
amount of background noise causes a marked deterioration in 
its performance. Above 7^ dB, the algorithm would not accept 
speech utterances at all, rather signaling "SPEECH OUT OF 
WINDOW", indicating that it thought the noise was the speech 
utterance . 

An attempt was made to improve the performance of the 
algorithm by training it with the background noise set at 62 dB. 
While this did improve the recognition rate of the program with 
the background noise level at 60 and 65 dB, performance again 
fell off rapidly at 70 dB and at 7^ dB the algorithm again 
could not distinguish the speech from the background noise. 

A noise cancelling boom mike would almost certainly have 
improved the performance of the system, as would the wearing of 
an oxygen mask. However, as noted by previous researchers 
[Ref. , the background noises induced by heavy breathing 
under moments of stress and high G interfere greatly with a 
speech recognition system's performance. 

The response time for the most accurate algorithm, i.e., 
with S set at 64, was Judged to be unacceptable, averaging out 
to 27 sec in all tests. However, with the S parameter set at 
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m- 




l6, the average response time was 9 sec, a slightly high but 
possibly acceptable time [Ref. ^ . The system accuracy in 
this case dropped to just slightly more than 50^, clearly 
unacceptable . 

Obviously, the algorithm provided with the SPEECHLAB 
hardware requires a great deal of Improvement. If this Is not 
possible, and none of the Improvements suggested by the 
SPEECHLAB manual plef. ^ produce noticeable improvement, a 
completely new algorithm must be found before the SPEECHLAB 
system could be considered acceptable for military use. 

Further testing should also Include vibration levels of 
various Intensities to simulate aircraft motion. 

Two observations made during the course of the experiment 
suggest, however, that the low recognition rates obtained may 
not be due entirely to the algorithms used. 

First, It was noted that as a subject became more used to 
"talking" to the machine, a slight improvement In the algorithm' 
recognition rate was seen. It appears that the subject began 
to pronounce the words on the list in a more consistent manner 
after numerous repetitions. This was especially true when the 
subject was told that a successful recognition had been achieved 
This appeared to reinforce in the subject's mind the particular 
pronunciation which produces the successful recognition. If 
the subjects had been trained in this manner prior to commence- 
ment of the testing, the initially lower recognition rates 
might have been avoided. It would seem therefore that operator 
training would play a significant role in any successful voice 
recognition system. 
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The second observation concerned the day-to-day changes 
that occur in the human voice. On one occasion, a subject 
reported for testing with a cold which had changed the tone of 
his voice considerably. Although this particular subject had 
enjoyed one of the highest recognition rates of the group (in 
the middle nineties), on this particular day his recognition 
rate fell to just below 8o%. No other subject was tested with 
any other ailment, but it is felt that such things as a sore 
throat, asthma or other allergic reactions which changed the 
tone of the voice would cause a similar drop in the system 
performance . 

The obvious conclusion to be drawn here is that some means 
must be developed, whether through software programming or 
hardware devices, to account for possible dally changes in an 
operator's voice characteristics. 

Several attempts were made to train the SPEECHLAB algorithm 
with one subject and test it with another person speaking. The 
results were so poor that, in general, it appears impractical 
with the present system to attempt to use it in such a manner. 
As presently set up, the best method to use the system with 
more than one person would be to train the algorithm with each 
person's voice. This would, of course, require more storage 
space and greatly increase recognition time. 

B. COMPUTALKER 

The results from the COMPUTALKER testing were unique in 
that after initial presentation of the word list, all subjects 
scored lOOjS on all tests. Although the initial recognition 
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rate during the optimization testing was very low (20^), the 
subjects rapidly related the machine speech with the proper 
word. Changing background noises and tone had almost no 
effect on the tests. The only area of difficulty encountered 
was due to the nature of the white noise introduced to the 
testing chamber. The sound produced by the noise is best 
described as a hiss, which is very similar to the letter "S" 
as pronounced by COMPUTALKER. This had the effect of masking 
the letter "S" when the machine spoke the word "ILS". All 
subjects, however, were able to hear the "IL" part of the word 
with no trouble and correctly deduced the word to be "ILS". 

At this point in the experiment, the testing procedure was 
modified since the vocabulary under consideration was obviously 
too small, allowing the subjects to easily determine the 
correct choice by process of elimination. Another ten words 
were added to the vocabulary and optimized as before. The 
additional words and their phonetic spelling were as follows: 

(11) ABOVE — AHBAHOHV 

(12) BELOW — BIY3L0W2 

(13) CHECK — CHEHK 

(14) DOWN — DAOWHN 

(15) ENGINE — EHNJHIHN 

(16) FIRE — FQAYIR 

(17) GEAR — GEHER 

(18) NAVIGATION — NAEIVEHGEYISOHN 

(19) PRESSURE — PREHSUHR 

(20) SOME — SQEMN 
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Various combinations of ten words from the twenty word 
vocabulary were chosen and presented to the subjects. Although 
results were expected to be poor^ the opposite was true. Only 
one subject missed one word. However, all expressed the 
opinion that they had had a much more difficult time in 
determining the correct word. This would infer that they 
thought about their choice much longer than required before. 
This is obviously undesirable, as a pilot can usually ill 
afford to have his attention drawn away from the task of 
flying his aircraft. One solution to this problem would be to 
limit the machine's vocabulary to twenty words or less, but 
this might not be feasible in all situations. 

One method of increasing the vocabulary size that could be 
used with the COMPUTALKER system would be to improve the 
quality of the sounds produced by the governing phonetic 
spelling rules. It was noted throughout the course of the 
experiments that the sounds produced by COMPUTALKER were not 
quite what was expected from the description in the phonetic 
rules [Plg. 12] . Most sounds were close enough that the 
subjects readily adjusted to them with little or no difficulty. 
Some letters of the alphabet were difficult to recognize, as 
was noted previously about the letter "S", the sound in this 
case being more of a hiss than the "es" sound normally 
associated with the letter. Also, COMPUTALKER produced soft 
sounds much more readily than hard ones, most notably at the 
end of a word. For example, the word "CHECK" is pronounced 
more like "cheg" by the system. Although this was a minor 
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problem in this Instance, incorporation of the word "CHECK" 
in certain phrases may lead to ambiguous meanings due to its 
mispronunciation. 

Correcting the sounds produced by the phonetic rules used 
by the system would involve changing the computer code which 
controls the COMPUTALKER hardware. These rules are contained 
in Sections 2 through 6 of the CSRl Source listing. Due to 
time constraints, no such improvements were attempted, but are 
considered to be necessary to upgrade the quality of the 
COMPUTALKER system. 

C. SURVEY 

The general results of the survey, while not conclusive, 
indicate that most of the pilots would prefer the computer be 
used to calculate such things as Weight and Balance, Proven 
Limit of Endurance profiles (PLE), Maximum Range profiles, etc. 
Many felt it would be advantageous to have the computer warn 
the pilots of impending failures of systems or emergencies, 
such as slowly falling oil pressure, increasing temperatures 
in engine sections, etc. Several pilots favored a verbal 
warning from the computer, in addition to the normal indica- 
tions, in the case of an approach to landing with the gear 
still up. 

Few pilots indicated a willingness to allow the computer 
to actually take physical control of the aircraft under any 
circumstance, although a few would have allowed the computer 
to do so with the pilot's explicit approval. The latter would 
allow the computer to suggest an appropriate course of action 
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and. If It met with the pilot's approval, give permission to 
carry out the procedure. Interestingly, many pilots expressed 
concern that a computer system of this type would be detrimental 
to the morale of the Flight Engineer and cause complacency 
among the pilots themselves. A few pilots were even of the 
opinion that the autopilot, while of great benefit on long 
transit flights, was causing complacency and reduced flying 
skills among some pilots. 

It would seem from the general reaction of most pilots 
that the initial flight testing and operational experience of 
a SUS be conducted at the TACCO and Navigator stations aboard 
the aircraft, as indicated by Ref. 4. 



35 



APPENDIX A 



SPEECHLAB COMPUTER PROGRAMS 

The controlling program for SPEECHLAB is written in BASIC. 
The SPEECH Driver requires modifications be made to the BASIC 
system being used. In order to save space, Hueristics, Inc., 
decided to use the Palo Alto TINY BASIC system, developed by 
Dr. Li -Chen Wang. TINY BASIC handles only interger numbers, 
but this is not a major problem in the SPEECHLAB program. 

TINY BASIC, the required modifications for the SPEECHLAB 
Driver, and the SPEECHLAB controlling programs are reproduced 
on the following pages with the permission of Hueristics, Inc. 
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TINY BASIC FOR INTEL 8080 
VERSION 1.0 
BY LI -CHEN WANG 
• 10 JUNE, 1976 

aCOPYLEPT 

ALL WRONGS RESERVED 



EERO PAGE SUBROUTINES 

THE 8080 INSTRUCTION SET LETS YOU HAVE 8 ROUTINES IN LOW 
MEMORY TEAT 1-lAY BE CALLED BY RST N, N BEING 0 THROUGH 7. 
THIS IS A ONE BYTE INSTRUCTION AND HAS THE SAME POWER AS 
THE THREE BYTE INSTRUCTION CALL LLKH. TINY BASIC WILL 
USE RST 0 AS START OR RESTART AND RST 1 THROUGH RST 7 FOR 
THE SEVEN MOST FREQUENTLY USED SUBROUTINES. 

TV/0 OTHER SUBROUTINES ( CRLP AND TSTNIHl) ARE ALSO IN THIS 
SECTION. THEY CAN BE REACHED ONLY BY 3-BYTE CALLS. 



* 






ORG 


X‘0000' 




0000 


P3 


START 


DI 


r 


START/RESTART ’*** 


0001 


310020 0000 




LODI 


SP, STACK 


INITIALIZE THE STACK 


000A 


C33A00 




JMP 


STl 


GO TO THE !4AIN SECTION 


0001 

A 


4C 




CHAR 


'L‘ 




0008 


E3 




XCH 


HL,( 3P) 


AA* tSTC or RST 1 


0009 


EP 




IGNBLK 


IGNORE BLAIIKS AND 


000A 


BE 




CMP 


M 


TEST CHARACTER 


000B 

A 


C36800 




JMP 


TCI 


REST OF THIS IS AT TCI 


000Z 

A 


3E0D 


CRLP 


LODI 


A,0CR 


CRLP *** 


00\0 


P5 




PUSH 


AP 


OUTC OR RST 2 


00 n 


3A0008 




LD 


A,OCSW 


PRINT CHARACTER ONLY 


001A 


B7 




lOR 


A 


IP OCSW SV/ITCH IS ON 


001S 

A 


C31A07 




JMP 


OC2 


REST OP THIS IS AT OC2 


0018 


CD5504 




CALL 


EXPR2 


»»» EXPR OR RST 3 


001B 


E5 




PUSH 


HL 


EVALUATE AN EXPRESION 


001C 


C31104 




JMP 


EXPRl 


REST OP IT IS AT EXPHl 


001P 

* 


57 




CHAR 


' W’ 




0020 


7C 




LOD 


A,H 


COMP OR RST 4 


0021 


BA 




CMP 


D 


COMPARE HL WITH DE 


0022 


C0 




RET 


N2 


RETURN CORRECT C AND 


0023 


7D 




LOD 


A,L 


Z PLAGS 


0024 


BB 




CMP 


E 


BUT OLD A IS LOST 


0025 


C9 




RET 


U 




002 C 

A 


414E 




CHAR 


'AN* 




0028 


lA 


SSI 


LD 


A,( DE) 


IGNBLK/RST 5 


0029 


PE20 




CMP I 


V 1 


IGNORE BLANKS 


0023 


C0 




RET 


N2 


IN TEXT (WHERE DE->) 


002C 


13 




INC 


DE 


AND RETURN THE FIRST 


002D 

A 


C32300 




JMP 


SSI 


NON-BLANK CHAR. IN A 


0030 


PI 




POP 


AP 


FINISH/RST 6 



01 
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0031 


CD9105 






CALL 


PIN 


CHECK END OF COMMAND 


003 4 


C3A405 






JMP 


QWHAT 


PRINT "WHAT?" IF WRONG 


003 7 

it 


47 






CHAR 


’G’ 




0038 


EP 






IGNBLK 


*** TSTV OR RST 7 


003 9 


D640 






SUBI 




TEST VARIABLES 


003B 


D8 






RET 


C 


C:NOT A VARIABLE 


003C 


C25800 






JMP 


NZ , TVl 


NOT "0” ARPJIY 


003 P 


13 






INC 


DE 


IT IS THE "0" ARRAY 


0040 


CDFB04 






CALL 


PARN 


0 SHOULD BE FOLLOWED 


004 3 


29 






ADD 


HL,HL 


BY (EXPR) AS ITS INDEX 


004 4 


DA9F00 






JMP 


C , QHOW 


IS INDEX TOO BIG? 


004 7 


D5 






PUSH 


DE 


WILL IT OVERWRITE 


004 8 


EB 






XCH 


HL,DE 


TEXT? 


004 9 


CD3D05 






CALL 


SIZE 


FIND SIZE OF FREE 


004 C 


E7 y: 






COMP 




AND CHECK THAT 


004 D 


DAD005 






JMP 


C,ASORRY 


IF SO, SAY "SORRY" 


0050 


21001F 


@000 




LODI 


HL,VARBGN 


IF NOT, GET ADDRESS 


0053 


CD6005 






CALL 


SUBDE 


OF @(EXPR) AND PUT IT 


0056 


D1 






POP 


DE 


IN HL 


0057 


C9 






RET 


U 


C FLAG IS CLEARED 


0058 


FEIB 




TVl 


CMPI 


27 


NOT @, IS IT A TO Z? 


00 5 A 


3F 






CMC 


f 


IF NOT RETURN C FLAG 


005B 


D8 






RET 


C 




005C 


13 






INC 


DE 


IP A THROUGH Z 


005D 


21001F 


@000 




LODI 


HL,VARBGN 


COMPUTE ADDRESS OF 


0060 


07 






P.OT 


L 


THAT VARIABLE 


0061 


85 






ADD 


L 


AND RETURN IT IN HL 


006 2 


6F 






LOD 


L,A 


WITH C FLAG CLEARED 


006 3 


3E00 






LODI 


A,0 




006 5 


8C 






ADC 


H 




006 6 


67 






LOD 


H,A 




006 7 

n 


C9 






RET 


U 




* 






TSTC 


XCH 


HL,( SP) 


*** TSTC OR RST 1 *** 


* 








IGNBLK 


THIS IS AT LOC. 8 










CMP 


M 


AND THEN JMP HERE 


006 8 


23 




TCI 


INC 


HL 


COMPARE THE BYTE THAT 


006 9 


CA7300 






JMP 


Z,TC2 


FOLLOWS THE RST INST. 


006C 


C5 






PUi.H 


BC 


WITH THE TEXT (DE->) 


006 D 


4E 






LOD 


C 


IF NOT ADD THE 2ND 


006 E 


0600 






LODI 


B,0 


BYTE THAT FOLLOWS THE 


0070 


09 






ADD 


HL,BC 


RST TO THE OLD PC 


0071 


Cl 






POP 


BC 


I .E, , DO A RELATIVE 


007 2 


IB 






DEC 


DE . 


JUMP IF NOT - 


007 3 


13 




TC2 


INC 


DE 


IF SKIP THOSE BYTES 


007 4 


23 






INC 


HL 


AND CONTINUE 


007 5 


E3 






XCH 


HL,( SP) 




007 6 

« 


C9 






RET 


U 




007 7 


210000 




TSTNUM 


LODI 


HL,0 


**** TSTNUM 


007 A 


44 






LOD 


B,H 


TEST IF THE TEXT IS 


007B 


EF 






IGNBLK 


A NUMBER 


007C 


FE30 




TNI 


CMPI 


‘0’ 


IF NOT, RETURN 0 IN 


007 E 


D8 






RET 


C 


B AND HL 


007 F 


FE3A 






CMPI 


X' 3A’ 


IF NUMBERS, CONVERT 


0081 


D0 






RET 


NC 


TO BINARY IN HL AND 


0082 


3EF0 






LODI 


A,X’F0’ 


SET B TO OF DIGITS 


0084 


A4 






AND 


H 


IF H'>255, THERE IS NO 


008 5 


C29F00 






JMP 


NZ , QHOW 


ROOM FOR NEXT DIGIT 



02 
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0088 


04 




INC 


B 


B COUNTS # OF DIGITS 


0089 


C5 




PUSH 


BC 




00 8 A 


444D 




LOD 


BC,HL 


HL-I0*HL + ( NEW DIGIT) 


008C 


29 




ADD 


HL,HL 


WHERE 10* IS DONE BY 


00 8D 


29 




ADD 


HL,HL 


SHIFT AND ADD 


008E 


09 




ADD 


HL,BC 




008F 


29 




ADD 


HL,HL 




0090 


lA 




LD 


A,{ DE) 


AND (DIGIT) IS FROM 


0091 


13 




INC 


DE 


STRIPPING THE ASCII 


009 2 


E60F 




AND I 


X ‘0F’ 


CODE 


0094 


85 




ADD 


L 




009 5 


6F 




LOD 


Xj , A 




009 6 


3E00 




LODI 


A,0 




009 8 


8C 




ADC 


H 




009 9 


67 




LOD 


H,A 




009A 


Cl 




POP 


BC 




009B 


lA 




LD 


A,( DE) 


DO THIS DIGIT AFTER 


009C 


F27C00 




JMP 


NS , TNI 


DIGIT. S SAYS OVERFLOW 


009 F 


D5 


QHOW 


PUSH 


DE 


*** ERROR: ”HOW7” *** 


00A0 


11A600 


AHOW 


LODI 


DE,HOW 




00 A 3 


C3A805 




JMP 


ERROR 




00A6 


484F573P 


HOW 


CHAR 


' HOW? ’ , 


@CR 


00AA 


0D 










00AB 


4F4B 


OK 


CHAR 


'OK' ,@CR 


00AD 


0D 










00AE 


574841543F 


WHAT 


CHAR 


'WHAT? ‘ 


,@CR 


00B3 


0D 










00E4 


534F525259 


SORRY 


CHAR 


' SORRY' 


,@CR 


00B9 


0D 











* 



★ *** main *** 

* 

* THIS IS THE MAIN LOOP THAT COLLECTS THE TINY BASIC PROGRAM 

* AND STORES IT IN THE MEMORY. 

* 

* AT START, IT PRINTS OUT ”( CR) OK( CR ) AND INITIALIZES THE 

* STACK AND SOME OTHER INTER^IAL VARIABLES. THEN IT PROMPTS 

* ’*>” AND READS A LINE. IF THE LINE STARTS WITH A NON-ZERO. . 

* NUI-CBER, THIS NUI'SBER IS THE LINE NUMBER. THE LINE NU^^SR ' 

* (IN 16 BIT BINARY) AND THE REST OF THE 'LINE (INCLUDING CR) 

* IS STORED IN THE MEMORY. IF A LINE WITH THE SAI^E LINE 

* NUMBER IS ALREDY THERE, IT IS REPLACED BY THE NEW ONE. IF 

* THE REST OF THE LINE CONSISTS OF A CR ONLY, IT IS NOT STORED 

* AND ANY EXISTING LINE WITH THE SAME LINE NUMBER IS DELETED. 

* 

* AFTER A LINE IS INSERTED, REPLACED, OR DELETED, THE PROGRAM 

* LOOPS BACK km) ASK FOR ANOTHER LINE, THIS LOOP WILL BE 

* TERMINATED WHEN IT READS A LINE WITH ZERO OR NO LINE 

* NUMBER; AND CONTROL IS TRAIISFERED TO ’’DIRECT”. 

* 

* TINY BASIC PROGRAJ< SAVE AREA STARTS AT THE MEMORY LOCATION 

* LABELED ’’TXTBGN” AND ENDED AT "TKIEND” . WE ALWAYS FILL THIS 

* AREA STARTING AT ’’TXTBGN”, THE UNFILLED PORTION IS POINTED 

* BY THE CONTENT OF A MEMORY LOCATION LABELED ”TXTUNF” . 

* 

* THE MEMORY LOCATION "CURRNT” POINTS TO THE LINE NUMBER 

* THAT IS CURRENTLY BEING INTERPRETED. vmiLE WE ARE IN 

* THIS LOOP OR WHILE WE ARE INTERPRETING A DIRECT COMMAND 

03 
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SHOULD POINT TO A 0 . 



"CURRNT 



• (SEE NEXT SECTION), 



00BA 


CD0E00 




00BD 


11A300 




00C0 


97 




00C1 


CD3C06 




00C4 


21CB00 




00C7 


220108 




00CA 


210000 




00CD 


220708 




00D0 


220308 




00D3 


3E3E 




00D5 


CDD605 




00D8 


D5 




00D9 


11371F 


@3(3(5 


00DC 


CD7700 




00DP 


EP 




00E0 


7C 




00E1 


B5 




00E2 


Cl 




00E3 


CAF501 




00E6 


IB 




00E7 


7C 




00E8 


12 




00E9 


IB 




00EA 


7D 




00EB 


12 




00EC 


C5D5 




00EE 


79 




00EF 


93 




00F0 


F5 




00F.1 


CD1406 




00P4 


D5 




00F5 


C20801 




00F8 


D5 




* 


,,CD3006 




00FC 


Cl 




00FD 


2A1308 




0100 


CDBD06 




0103 


6069 




0105 


221308 




0108 


Cl 




0109 


2A1308 




010C 


FI 




010D 


E5 




010E 


FE03 




0110 


CA0000 




0113 


85 




0114 


6F 




0115 


3E00 




0117 


8C 




0118 


67 




0119 


11001P 


8000 


011C 


E7 




011D 


D2CF05 




0120 


221308 




0123 


D1 




0124 


CDC606 





START 


LODI 


SP, STACK 


STl 


CALL 


C3^P 




LODI 


DE,OK 




SUB 


A 




CALL 


PRTSTG 




LODI 


HL,ST2+1 




ST 


HL,CURRNT 


ST2 


LODI 


HL,0 




ST 


HL,LOPVAR 




ST 


HL,STKGOS 


ST3 


LODI 


A, * >* 




CALL 


GETLN 




PUSH 


DE 




LODI 


DE, BUFFER 




CALL 


TSTNUM 




IGNBLK 




LOD 


A,H 




lOR 


L 




POP 


BC 




JMP 


Z, DIRECT 




DEC 


DE 




LOD 


A,H 




ST 


A,( DE) 




DEC 


DE 




LOD 


A,L 




ST 


A,( DE) 




PUSH 


BC,DE 




LOD 


A,C 




SUB 


E 




PUSH 


AF 




CALL 


FNDLN 




PUSH 


DE 




JMP 


NZ.ST4 




PUSH 


DE 




CALL 


FNDNXT 




POP 


BC 




LD 


HL , TXTUNF 




CALL 


MVUP 




LOD 


HL,EC 




ST 


HL , TXTUNF 


ST4 


POP 


BC 




LD 


HL , TXTUNF 




POP 


A? 




PUSH 


HL 




CMP I 


3 




JMP 


Z, START 




ADD 


L 




LOD 


L , A 




LODI 


A,0 




ADC 


H 




LOD 


H,A 




LODI 

COMP 


DE,TXTEND 




JMP 


NC ,QSORRY 




ST 


HL, TXTUNF 




POP 


DE 




CALL 


MVDOWN 



THIS IS AT LOG. 0 
AND JUWP TO HERE 
DE->STRING 
A-0 

PRINT STRING UNTIL CR 
LITERAJ. 0 

CURRNT->LINE # - 0 



PROMPT AND 

READ A LINE 
DE->END OF LINE 
DE->BEGiraiNG OP LINE 
TEST IF IT IS A NUMBER 

HL-VALUE OF THE # OR 
0 IF NO # WAS FOUND 
BC->END OF LINE 

BACKUP DE AND SAVE 
VALUE OF LINE # THERE 



BC,DE->BEGIN, END 



A-# OF BYTES IN LINE 
FIOT THIS LINE IN SAVE 
AREA, DE->SAVE AREA 
NZ:NOT F0U1;D, INSERT 
Z: FOUND, DELETE IT 
FIND NEXT LINE 
DE->NEXT LINE 
BC->LINE TO BE DELETED 
HL->UNFILLED SAVE AREA 
MOVE UP TO DELETE 
TXTU1^F->UNFILLED AREA 
UPDATE 

GET READY TO INSERT 
BUT FIRST CHECK IF 
THE LENGTH OF NEW LINE 
IS 3 ( LINE # AND CR) 
THEN DO NOT INSERT 
MUST CLEAR THE STACK 
COMPUTE NEW TXTUl^F 



KL->NEW UNFILLED AREA 
CHECK TO SEE IF THERE 
IS ENOUGH SPACE 
SOx?RY, NO ROOM FOR IT 
OK, UPDATE TXTUNF 
*iE->OLD UNFILLED AREA 
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0127 DlEl POP DE,HL DE->BEGIN, HL->END 

0129 CDBD06 CALL MVUP MOVE HEW LINE TO SAVE 

012C C3D300 JMP ST3 AREA 



••• TABLES ••• DIRECT & EXEC ««• 

THIS SECTION OF THE CODE TESTS A STRING AGAINST A TABLE. 

WHEN A MATCH IS FOUND, CONTROL IS TRANSFERED TO THE SECTION 
OF CODE ACCORDING TO THE TABLE. 

AT 'EXEC, DE SHOULD POINT TO THE STRING AND HL SHOULD POINT 
TO THE TABLE-1. AT 'DIRECT', DE SHOULD POINT TO THE STRING, 
HL WILL BE SET UP TO POINT TO TABl-1, WHICH IS THE TABLE OF 
ALL DIRECT AND STATEMENT COMMANDS. 

A ' . ' IN THE STRING WILL TERMINATE THE TEST AND THE PARTIAL 
MATCH WILL BE CONSIDERED AS A ilATCH. E.G., 'PR.', 

'PRI.', 'PRIN.', OR 'PRINT' WILL ALL MATCH 'PRINT'. 

THE TABLE CONSISTS OF ANY NUMBER OF ITEMS. EACH ITEM 
IS A STRING OF CHARACTERS WITH BIT 7 SET TO 0 AND 
A JUMP ADDRESS STORED HI-LOW WITH BIT 7 OF THE HIGH 
BYTE SET TO 1. 

END OF TABLE IS AN ITEM WITH A JUMP ADDRESS ONLY. IF THE 
STRING DOES NOT MATCH ANY OF THE OTHER ITEMS, IT WILL 
MATCH THIS NULL ITEM AS DEFAULT. 



012F 




TABl 


EQU 


* DIRECT COMMANDS 


012F 


4C495354 




ITEM 


'LIST' ,LIST 


0133 


8261 








0135 


52554E 




ITEM 


' RUN ' , RUN 


0138 


8233 




, 




01 3 A 


4E4557 




ITEM 


'NEW' ,NEW 


013D 

013F 


8226 


TAB 2 


EQU 


• DIRECT/STATEMENT 


013F 


4E455S54 




ITEM 


'NEXT' ,NEXT 


014 3 


834 9 








014 5 


4C4554 




ITEM 


'LET' ,LET 


0148 


8407 








014A 


4946 




ITEM 


' IF’ , IF 


014C 


839A 








014E 


474F544F 




ITEM 


'GOTO' ,GOTO 


0152 


8252 








0154 


474F535542 




ITEM 


'GOSUB' ,GOSUB 


0159 


82B1 








015B 


52455455524E 




ITEM 


'RETURN' , RETURN 


0161 


82D1 






0163 


52454D 




ITEM 


'REM' ,REM 


0166 


8396 








0168 


464F52 




ITEM 


'FOR' ,FOR 


016B 


82EA 








016D 


494E505554 




ITEM 


'INPUT' , INPUT 


0172 


83B1 






0174 


5052494E54 




ITEM 


'PRINT' , PRINT 


0179 


82 7 9 








017B 


53544F50 




ITEM 


'STOP' ,STOP 



017F 822F 
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J0T181 


8401 




ITEM 


,DEFLT 




01BZ 


594F55204D415920 


CHAH 


’YOU MAY 


INSERT 'more COMMANDS.’ 


£ri8B 


494E534552542020 








ai9 3 


4D4F524520434F4D 








019B 


4D414E44532E 










jeriAi 




TAB 4 


EQ0 


* 


FUNCTIONS 


jeriAi 


524E44 




ITEM 


’ RKD* ,RND 




J0T1A4 


8506 










£riA6 


414253 




ITEM 


’ ABS ’ ,ABS 




J0T1A9 


853 1 










£T1AB 


53495A45 




ITEM 


•SIZE’, SIZE - 


01AF 


853D 










J0T1B1 


84 EC 




ITEM 


,XP40 




J0T1B3 


594F55204D415920 


CHAR 


•YOU MAY 


INSERT MORE FUNCTIONS’ 


01BB 


494E534552542020 








01C3 


4D4F52452046554E 








01 CB 


4354494F4E53 










01D1 




TABS 


EQU 


a 


"TO" IN "FOR" 


01D1 


544F 




ITEM 


’TO’ ,FR1 




01D3 


82FA 




• 






01D5 


85A4 




ITEM 


,QWHAT 




01D7 




TAB 6 


EQU 


tc 


"STEP" IN "FOR" 


01D7 


53544550 




ITEM 


’STEP’ ,FR2 


01DB 


8304 










01DD 


3308 




ITEM 


,FR3 




01DF 




TABS 


EQU 


* 


RELATION OPERATORS 


01DP 


3L3D 




ITEM 


’ ,XP11 




01E1 


8417 










01E3 


23 




ITEM 


’#* ,XP12 




01E4 


84 ID 










01E6 


3E 




ITEM 


’ > ' ,XP13 




01E7 


8423 










01E9 


3D 




ITEM 


,XP15 




01EA 


8432 










01EC 


3C3D 




ITEM 


,XP14 




01EE 


842A 










01 F0 


3C 




ITEM 


• < ’ ,XP16 




01F1 


8438 










01F3 

• 


843E 




ITEM 


,XP17 




01F5 

<1^ 


212E01 


DIKECT 


LODI 


HL,TAB1-1 


DIRECT 


01F8 




EXEC 


EQU 


* 


*** EXEC *** 


01F8 


EF 


EX0 


IGNBLK 


IGNORE LEADING BLANKS 


01F9 


D5 




PUSH 


DE 


SAVE POINTER 


01 FA 


lA 


EXl 


LD 


A,( DE) 


IF FOU!TD ’ . ’ IN STRING 


01FB 


13 




INC 


DE 


BEFORE ANY MISMATCH 


01FC 


FE2E 




CMP I 


4 1 


VfE DECLARE A MATCH 


01FE 


CA1702 




JMP 


Z,EX3 




0201 


23 




INC 


HL 


HL->TABLE 


0202 


EE 




CMP 


M 


IF MATCH, TEST NEXT 


0203 


CAFA01 




JMP 


Z,EX1 




0206 


3E7F 




LODI 


A.X’ 7F’ 


ELSE. SEE IF BIT 7 


0208 


IB 




DEC 


DE 


OF TABLE IS SET, WHICH 


0209 


BE 




CMP 


M 


IS THE JUMP ADDR. ( HI > 


020A 


DA1E02 




JM? 


C,EX5 


C:YES, MATCHED 


020D 


23 


EX 2 


INC 


HL 


NC:NO, FIND JUMP ADDR. 


020E 


BE 




CMP 


M 




020F 


D20D02 




JMP 


NC,EX2 




0212 


23 




INC 


HL 


TO NEXT TAB. ITEM 



06 



42 



0213 


D1 




POP 


DE 


RESTORE STP.ING POINTER 


0214 


C3F801 




JMP 


EX0 


TEST AGAINST NEXT ITEM 


0217 


3E7F 


EX3 


LODI 


A,X’ 7F’ 


PARTIAL MJ^TCH, FIND 


0219 


23 


EX4 


INC 


HL 


JUMP ADD.R., WHICH IS 


021A 


BE 




CMP 


M 


FLAGGED BY SIT 7 


021B 


D21902 




JMP 


NC,EX4 




021E 


7E 


SX5 


LOD 


A,K 


LOAD HL with THE JUMP 


021F 


23 




INC 


HL 


ADDRESS FRC.M THE TABLE 


0220 


6E 




LOD 


L,M 




0221 


E67F 




AND I 


X ’ 7P’ 


MASK OFF BIT 7 


02 2 3 


67 




LOD 


K,A 




0224 


FI 




POP 


AP 


CLEAN UP THE GABAGE 


0225 


E9 




JMP 


( HL) 


AND WE GO DC IT 






♦ WHAT FOLLOWS IS THE CODE TO EXECUTE DIRECT AND STATEMENT 

♦ COMMANDS. CONTROL IS TKANSFERED TO THESE POINTS VIA THE 
» COMMAND TABLE LOOKUP CCDS OF ’DIRECT' AND ’EXEC’ IN LAST 

♦ SECTION. AFTER THE C02^IMAND IS EXECUTED, CONXRCL IS 
’• TRAN3FERED TO OTHER SECTIONS AS FOLLOWS: 

« 

♦ FOR ’LIST’, ’NSW', AITD ’STOP’: GO BACK TO ’START’ 

♦ FOR ’RUN’: GO EXECUTE THE FIRST STORED LINE IF ANY; ELSE 

♦ GO BACK TO ’ START’ . 

♦ FOR ’GOTO’ AITD ’GOSUB’: GO EXECUTE THE TARGET LINE. 

♦ FOR ’RETURN’ AND ’NEXT’: GO BACK TO SAVED RETURN LINE. 

♦ FOR ALL OTHERS: IF ' CURRNT ’ -> iS , GO TO 'START’, ELSE 

♦ GO EXECUTE NEXT CCMMAND . (THIS IS DONE IK 'FINISH’.) 

♦ 



» ••• NEW »** STOP •'»» Rtra (& 7RISNDS) *** & GOTO "• 

* 

* ’NEW(CR;’ sets 'TXTUNF’ to point to 'TXTBGN’ 

★ 

♦ ’STOPCCR.’’ GOES BACK TO ‘START’ 

« 

♦ ’RUN(CR)’ FINDS THE FIRST STORED LINE, STORE ITS ADDRESS (IN 
’CURRNT'), AND START EXECUTE IT. NOTE THAT ONLY THOSE 

* COMI-IANDS IN TAB2 ARE LEGAL FOR STORED PROGRAM. 

tt 

• THERE AP.E 3 MORS ENTRIES IN 'Pra': 

• 'RUNNXL’ FINDS NEXT LINE, STORES ITS ADDR. AND EXECUTES IT. 

» 'RUNTSL' STORES THE ADDRESS OF THIS LINE ACT EXECUTES IT. 

• 'RUNSI-IL' CONTINUES THE EXECUTION ON SAME LINE. 

tt 

» 'GOTO EXPP(CR)’ EVALUATES THE EXPRESSION, FIND THE TARGET 

* LINE, ATTL JLM? TO 'RUNTSL' TO DO IT. 



02 2 6 


CD.A005 


NSW 


CALL ENDCHK 


**• NEW(CR) •»» 


02 2 9 


211502 




LODI HL,TXTBGN 




022C 

* 


221303 




ST HL, TXTUNF 




022F 


CDA005 


STOP 


CALL ENDCHI^ 


**• STOP(CR) 


0232 

tt 


Cl 




RSTART 




0233 


CDA005 


RUN 


CALL E.NDCHK 


RUN(CR) 


02 3 6 


111503 




LODI DE,TXTBGN 


FIRST SAVED LINE 



21 



43 



0239 


210000 


RUNNXL 


LODI 


HL f 0 


RUNNXL 


022C 


CD1C06 




CALL 


FN^LNP 


FIND WHATEVER LINE # 


023F 

a 


DA0000 




JMP 


C , START 


C: PASSED TXTUNF, QUIT 


0242 


EB 


RUNTSL 


XCH 


HL,DE 


*** RUNTSL *** 


0243 


220108 




ST 


HL,CURRNT 


SET 'CURRNT ' ->LINE # 


0246 


EB 




XCH 


HL,DE 




0247 


1313 




INC 


DE,2 


BUI’IP PASS LINE # 


02 4 9 


CD3207 


RUNSI4L 


CALL 


CIIKIO 


*** RUNSML *** 


024C 


213E01 




LODI 


HL, TAB2-1 


FIND COMMAND IN TAB 2 


024F 


C3F801 




JMP 


EXEC 


AND EXECUTE IT 


0252 


DF 


GOTO 


EXPR 




*** GOTO EXPR ’*** 


0253 


D5 




PUSH 


DE 


SAVE FOR ERROR ROUTINE 


0254 


CDA005 




CALL 


ENDCHK 


MUST FIND A CR 


02 57 


CD1406 




CALL 


FNDLN 


FIND THE TARGET LINE 


02 5A 


C2A000 




JMP 


NZ ,AHOW 


NO SUCH LINE # 


025D 


Fi 




POP 


AF 


CLEAR THE ’’PUSH DE” 


02 5E 


C34202 




JMP 


RUNTSL 


GO DO IT 






* *** LIST *** & PRINT *** 

* 

LIST HAS TWO FORKS: 

* ’LIST(CR)' LISTS ALL SAVED LINES 

* ’LIST ^(CR)’ START LIST AT THIS LINE # 

* YOU CAN STOP THE LISTING BY CONTROL C KEY 

* 

* PRINT COMI^iAND IS ’PRINT ....;’ OR ’PRINT ....fCR)’ 

* V/HERE IS A LIST OF EXPRESIONS, FOHKATS , BACK- 

* ARHCV/S, PJ.'^D STRINGS. THESE ITEMS ARE SEPEPJ^TED BY COI^'^AS . 

* A FCRi^iAT IS A POUND SIGN FOLLOV7ED BY A NUMBER. IT CONTROLS 

* THE NTJI^ER OF SPACES THE VALUE OF A EXPRE5ION IS GOING TO 

* BE PRINTED. IT STAYS EFFECTIVE FOR THE PEST OF THE PRINT 
» COMMAND UI'TLESS CHANGED BY ANOTHER FORMAT. IF NO FORINT IS 

SPECIFIED, 6 POSITIONS WILL HE USED. 

* 

* A STRING IS OUOTED IN A PAIR OF SINGLE QUOTES OR A PAIR OF 

* DOUBLE QUOTES. 

* 

• A BACK-ARROW MEANS GENERATE A (CR) WITHOUT (LF) 

* 



• A (CRLF) IS GENERATED AFTER THE ENTIRE LIST HAS BEEN 
‘ PRINTED OR IF THE LIST IS A NULL LIST. HOWEVER IF THE LIST 
« ENDED WITH A COM-IA, NO (CRLF) IS GENERATED. 



★ 

0261 


CD7700 


LIST 


CALL 


TSTNUM 


TEST IF THERE IS A # 


0254 


CDA005 




CALL 


ENDCHK 


IF NO # WE GET A 0 


0267 


CD1406 




CALL 


FNDLN 


FIND THIS OR NEXT LINE 


026A 


DA0000 


LSI 


JMP 


C , START 


C; PASSED TXTUNF 


026D 


CDAA06 




CALL 


PRTLN 


PRINT THE LINE 


0270 


CD3207 




CALL 


CHKIO 


STOP IF KIT CONTROL-C 


0273 


CD1C06 




CALL 


FNDLNP 


FIND NEXT LINE 


02 7 6 

w 


C36A02 




JMP 


LSI 


AND LOOP BACK 


0279 


0E06 


PRINT 


LCDI 


C,6 


C - # OF SPACES 


02 7B 


CF 




TSTC 


’ J \ PR2 


IF NULL LIST & ”j” 



03 



44 



021c 


3B 










327D 


06 










027E 


CD0E00 




CALL 


CRLF 


GIVE CR-LF AND 


0231 


C34902 




JMP 


RUNSML 


CONTINUE SAME LINS 


0284 


CF 


PR2 


TSTC 


0CR,PPjU 


IF NULL LIST ( CR) 


02 8 5 


0D 










0286 


06 










0287 


CD0E00 




CALL 


CRLF 


ALSO GIVE CR-LF AND 


028A 


C33902 




JJ4P 


RUNNXL 


GO TO NEXT LINE 


02 8D 


CF 


PR0 


TSTC 


rPRl 


ELSE IS IT FCR24AT? 


028S 


23 










028F 


05 










0290 


DF 




EXPR 




YES, EVALUATE EXPR. 


0291 


4D 




LOD 


C,L 


AND SAVE IT IN C 


0292 


C39B02 




JMP 


PR3 


LOOK FOR MORE TO FRIN 


02 9 5 


CD4806 


PRl 


CALL 


QTSTG 


OH IS IT A STRING? 


0293 


C3A302 




JMP 


PR8 


IF NOT, MUST BE EXPR. 


029B 


CF 


PR3 


TSTC 




IF GO FIND NEXT 


029C 


2C 










029D 


06 










029E 


CD9105 




CALL 


FIN 


IN THE LIST. 


02A1 


C38D02 




JMP 


PR0 


LIST CONTINUES 


02A4 


CD0E00 


PR6 


CALL 


CRLF 


LIST ENDS 


02A7 


F7 




FINISH 




02A8 


DF 


PR8 


EXPR 




EVALUATE THE EXPR 


02A9 


C5 




PUSH 


BC 




02AA 


CD6E06 




CALL 


PRTNUM 


PRINT THE VALUE 


02AD 


Cl 




POP 


EC 




02AE 


C39B02 




JI4P 


PR3 


MORS TO PRINT? 





* *** GOSUB *** & RETUPJN 



* 'GOSUE EXPR;’ OR ' GCSUB EXPR ( CR) ' IS LIKE THE ’GOTO’ 

* COMMAND, EXCEPT THAT THE CURRENT TEXT POINTER, STACK POINTER 
ETC. ARE SAVE SO THAT EXECUTION CAN BE CONTII^UED AFTER THE 

* SUBROUTINE ’RETURN’. IN ORDER THAT ’GOSUB’ CAN BE NESTED 

* (AND EVEN RECURSIVE), THE SAVE AREA MUST EE STACKED. 

THE STACK POINTER IS SAVED IN ’ 5TKGOS ’ . THE OLD ’STKGCS’ IS 

* SAVED IN THE STACK. IF WE ARE IN THE MAIN ROUTINE, ’ STKGOS ’ 

* IS ZERO (THIS WAS DONE BY THE ’’MAIN” SECTION OF THE CODS), 

* BUT V7E STILL SAVE IT AS A FLAG FOR NO FURTHER ’RETURN'S. 



* 'RETURN(CR)’ mWOS EVERYTHING THAT ’GOSUB’ DID, AND THUS 

* RETURN THE EXCUTICN TO THE CC!‘!MAND AFTER THE MOST RECENT 

* ’GOSUB’. IF ’STKG05’ IS ZERO, IT INDICATES THAT WE 

* NEVER HAD A ’GOSUB' AND IS THUS AN ERROR. 

* 



02B1 


CDF106 


GOSUB CALL 


PUS HA 


SAVE THE CURRENT "FOR 


02B4 


DF 


EXPR 




PARAMETERS 


02B5 


D5 


PUSH 


DE 


AND TEXT POINTER 


02B6 


CD1406 


CALL 


FNDLN 


FIND THE TARGET LINE 


02B9 


C2A000 


JMP 


NZ , AHOW 


NOT THERE. SAY "HOW?” 


02EC 


2A0108 


LD 


HL,CURRNT 


FOUND IT, SAVE OLD 


02BF 


E5 


PUSH 


HL 


’CURRNT’ OLD ’ STKGOS ’ 


02C0 


2A0308 


LD 


HL,STKGOS 




02C3 


E5 


PUSH 


HL 




02C4 


210000 


LODI 


HL,0 


AND LOAD NEW ONES 


02C7 


220708 


ST 


HL,LOPVAR 





09 



45 



02CA 


39 


ADD 


HLrSP 






02CB 


220308 


ST 


HL,STKGOS 






02CE 


C34202 


JMP 


RUNTSL 


THEN RUN THAT LINE 


02D1 


CDA005 


RETURN CALL 


ENDCHK 


THERE MUST BE A CR 


02D4 


2A0308 


LD 


HL,STKGOS 


OLD 


STACK POINTER 


02D7 


7C 


LOD 


A,H 


0 MEANS NOT EXIST 


02D8 


B5 


lOR 


L 






02D9 


CAA405 


JMP 


Z,OWHAT 


SO, 


WE SAY: ”WHAT?” 


02 DC 


F9 


LOD 


SP,HL 


ELSE, RESTORE IT 


02DD 


El 


POP 


HL 






02DE 


220308 


ST 


HL,STKGOS 


AND 


THE OLD ’STKGOS’ 


02E1 


El 


POP 


HL 






02E2 


220108 


ST 


HL , CURRNT 


AND 


THE OLD ’CURRNT’ 


02E5 


D1 


POP 


DE 


OLD 


TEXT POINTER 


02E6 


CDD506 


CALL 


POPA 


OLD 


*'FOR” PARAMETERS 


02E9 


F7 


FINISH 


AND 


WE ARE BACK HOME 



* *** FOR *** & NEXT *** 

* TOR’ HAS TWO FORMS: 

* TOR VAR-EXPl TO EXP2 STEP EXPl ’ AND ’FOR VAR-EXPl TO EXP2 ’ 

* THE SECOND ?OR*M MEANS THE SAldE THING AS THE FIRST FORJl WITH 

* EXPl-1. (I.E., WITH A STEP OF +1.) 

* TBI WILL FIND THE VARIABLE VAR. AND SET ITS VALUE TO THE 

* CURRENT VALUE OF EXPl , IT ALSO EVALUATES EXPR2 AND EXPl 

* AND SAVE ALL THESE TOGETHER WITH THE TEXT POINTER ETC. IN 

* THE ’FOR’ SAVE AREA, WHICH CONSISTS OF ’LOPVAR’, ’LOPINC’, 

* ’LOPLMT’, ’LOPLN’, AND ’LOPPT'. IF THERE IS ALREADY SOME- 

* THING IN THE SAVE AREA ( THIS IS INDICATED BY A NON-ZERO 

* ’LOPVAR’), THEN THE OLD SAVE AREA IS SAVED IN THE STACK 
BEFORE THE NEW ONE OVERWRITES IT. 

* TBI WILL THEN DIG IN THE STACK AND FIND OUT IF THIS SA2-1E 

* VARIABLE WAS USED IN ANOTHER CURRENTLY ACTIVE ’FOR’ LOOP. 

» IF THAT IS THE CASE, THEN THE OLD ’FOR’ LOOP IS DEACTIVATED. 

* (PURGED FROM THE STACK..) 

« 

* ’NEXT VAR' SERVES AS THE LOGICAL (NOT NECESSARILLY PHYSICAL) 

* END OF THE ’FOR’ LOOP. THE CONTROL VARIABLE VAR. IS CHECKED 

* WITH THE ’LOPVAR’. IF THEY ARE NOT THE SAJ^.E , TBI DIGS IN 

* THE STACK TO FIND THE RIGHT ONE AND PURGES ALL THOSE THAT 

* DID NOT MATCH. EITHER WAY, TBI THEN ADDS THE ’STEP’ TO 

* THAT VARIABLE AND CHECK THE RESULT WITH THE LIMIT. IF IT 

* IS WITHIN THE LIMIT, CONTROL LOOPS BACK TO THE C0I«1!-1AND 

* FOLLOWING THE ’FOR’. IF OUTSIDE THE LIMIT, THE SAVE ARER 



» IS 

« 


PURGED AND 


EXECUTION CONTINUES. 








02EA 


CDF106 


FOR 


CALL 


PUSHA 


SAVE 


THE OLD 


SAVE AREA 


02ED 


CD7E05 




CALL 


SETVAL 


SET 


THE CONTROL VAR. 


02F0 


2B 




DEC 


HL 


HL IS ITS ADDRESS 


02F1 


220708 




ST 


HL, LOPVAR 


SAVE 


THAT 




02F4 


21D001 




LODI 


HL,TAB5-1 


USE 


■EXEC’ TO 


LOOK 


02F7 


C3F801 




JMP 


EXEC 


FOR 


THE WORD 


’ TO’ 


02FA 


DF 


FRl 


EXPR 




EVALUATE THE 


LIMIT 


02FB 


220B08 




ST 


HL, LOPLMT 


SAVE 


THAT 




02FE 


21D601 




LODI 


HL,TAB6-1 


USE 


’EXEC TO 


LOOK 


0301 


C3F801 




JM? 


EXEC 


FOR 


THE WORD 


’STEP ’ 


0304 


DF 


FR2 


EXPR 




FOUND IT, GET 


STEP 


0305 


C30303 




JMP 


FR4 









10 



46 



020Q 


210100 


FR3 


LODI 


HL, 1 


NOT FOUND, SET TO 1 


J030B 


220908 


FR4 


ST 


HL, LOPING 


SAVE THAT TOO 


030E 


2A0108 


FR5 


LD 


HL,CUP.RNT 


SAVE CURRENT LINE # 


0311 


220D08 




ST 


HL,LOPLN 




0314 


EB 




XCH 


HL,DE 


AND TEXT POINTER 


0315 


220F08 




ST 


HL,LOPPT 




0318 


010A00 




LODI 


BC, 10 


DIG INTO STACK TO 


031B 


2A0708 




LD 


HL,LOPVAR 


FIND ’LOPVAR’ 


031E 


EB 




XCH 


HL,DE 




031F 


60 




LOD 


H,B 




0320 


68 




LOD 


L ,B 


HL-0 NOW 


0321 


39 




ADD 


HL,SP 


HERE IS THE STACK 


0322 


3E 




SKIP 






0323 


09 


FR7 


ADD 


HL,BC 


EACH LEVEL IS 10 DEEP 


0324 


7E 




LOD 


A,M 


GET THAT OLD 'LOPVAR’ 


0325 


2^ 




INC 


HL 




J-0326 


B6' 




lOR 


M 




03 2 7 


CA4403 




JMP 


2,FR8 


0 SAYS NO MORE IN IT 


032A 


7E 




LOD 


A,M 




032B 


2B 




DEC 


HL 




032C 


BA 




CMP 


D 


SAME AS THIS ONE? 


032D 


C22303 




JMP 


NZ,FR7 




0330 


7E 




LOD 


A,M 


THE OTHER HALF? 


0331 


BB 




CMP 


E 




0332 


C22303 




JMP 


NZ,FR7 




0335 


EB 




XCH 


HL,DE 


YES, FOUND ONE 


0336 


210000 




LODI 


HL,0 




0339 


39 




ADD 


HL,SP 


TRY TO MOVE SP 


03 3 A 


444D 




LOD 


3C , 1£L 




• 033C 


210A00 




LODI 


KL , 10 




033F 


19 




ADD 


HL,DE 




0340 


CDC606 




CALL 


MVDOWN 


AND PURGE 10 WORDS 


0343 


F9 




LOD 


SP,HL 


IN THE STACK 


0344 


2A0F08 


FR8 


LD 


HL,LOPPT 


JOB DONE, RESTORE DE 


0347 


EB 




XCH 


HL,DE 




0348 

* 


F7 




FINISH 


AND CONTINUE 


0349 


FF 


NEXT 


TSTV 




GET ADDRESS OF VAR. 


034A 


DAA405 




JMP 


C , Q^-fEAT 


NO VARIABLE, "WHAT?” 


034D 


220508 




ST 


HL , VAPJOCT 


YES, SAVE IT 


03 50 


D5 


NX0 


PUSH 


DE 


SAVE TEXT POINTER 


0351 


EB 




XCH 


HL.DE 




0352 


2ABT708 




LD 


HL,LOPVAR 


GET VAR. IN 'FOR* 


0355 


7C 




LOD 


A,H 




0356 


B5 




lOR 


L 


0 SAYS NEVER HAD ONE 


0357 


CAA505 




JMP 


2,AWHAT 


SO WE ASK: "WHAT?" 


03 5A 


E7 




COMP 




ELSE WE CHECK THEM 


035B 


CA6803 




JMP 


Z,NX3 


OK , THEY AGREE 


035E 


D1 




POP 


DE 


NO, LET’S SEE 


035F 


CDD506 




CALL 


POPA 


PURGE CURRENT LOOP 


0362 


2A050S 




LD 


HL , VARiTXT 


AND POP ONE LEVEL 


0365 


C35003 




JMP 


NX0 


GO CHECK AGAIN 


0368 


5E 


NX 3 


LOD 


E,M 


COME HERE WHEN AGREED 


0369 


23 




INC 


HL 




036A 


56 




LOD 


D,M 


DE-VALUE OF VAR. 


036B 


2A0908 




LD 


HL,LOPINC 




036E 


E5 




PUSH 


HL . 




036F 


19 




ADD 


HL,DE 


ADD ONE STEP 


0370 


EB 




XCH 


HL,DE 




0371 


2A0708 




LD 


KL,LOPVAR 


PUT IT BACK 



11 



47 . 



0374 


73 




LOD 


M, E 




0375 


23 




INC 


KL 




0376 


72 




LOD 


M,D 




0377 


2A0B08 




LD 


HL, LOPLMT 


HL->LIMIT 


037A 


FI 




POP 


AF 


OLD HL 


03 7B 


B7 




lOR 


A 




037C 


F28003 




JMP 


NS ,NX1 


STEP > 0 


037F 


EB 




XCH 


HL,DE 


STEP < 0 


0380 


CD7605 


NX! 


CALL 


CKHLDE 


COILPARE WITH LIMIT 


0383 


D1 




POP 


DE 


RESTORE TEXT POINTER 


0384 


DA9 2 0J 




JMP 


C ,NX2 


OUTSIDE LIMIT 


^0387 


2A0D08) 




LD 


HL,LOPLN 


WITHIN LIMIT, GO 


038A 


220108 




ST 


HL,CURRNT 


BACK TO THE SAVED 


038D 


2A0F08 




LD 


HL,LOPPT 


•CURRNT' AND TEXT 


0390 


EB 




XCH 


HL,DE 


POINTER 


0391 


F7 




FINISH 




0392 


CDD506 


NX2 


CALL 


POPA 


PURGE THIS LOOP 


03 9 5 


F7 




FINISH 





» *** REM IF *** INPUT & LET (& DEFLT) »»» 

» 

* *REM’ CAN BE FOLLOWED BY ANYTHING AND IS IGNORED BY TBI . 

* TBI TREATS IT LIKE AN ’IP' WITH A FALSE CONDITION. 

* 

* ’IP’ IS FOLLOWED BY AN EXPR. AS A CONDITION AND ONE OR MORE 

* COMMAOTS (INCLUDING OUTHER ’IF’S) SEPERATED BY SEMI-COLONS. 

» NOTE THAT THE WORD ‘THEN' IS NOT USED. TBI EVALUATES THE 

» EXPR. IF IT IS NON-ZERO, EXECUTION CONTINUES. IF THE 

* EXPR. IS ZERO, THE COidMAOTS THAT FOLLOWS ARE IGNORED AND 
» EXECUTION CONTINUES AT THE NEXT LINE. 

» 

» 'INPUT' COI-IMAND IS LIKE THE 'PRINT' COI^ND , AND IS FOLLOWED 

* BY A LIST OF ITEMS. IF THE ITEM IS A STRING IN SINGLE CR 

* DOUBLE QUOTES, OR IS A BACK-ARROW, IT liAS THE SAMS EFFECT AS 

* IN 'PRINT'. IF AN ITEM IS A VARIABLE, THIS VARIABLE NAME IS 

* PRINTED OUT FOLLOWED BY A COLON. THEN TBI WAITS FOR AN 

* EXPR. TO BE TYPED IN. THE VARIABLE IS THEN SET TO THE 

» VALUE OF THIS EXPR. I? THE VARIABLE IS PROCSDED BY A STRING 

* (AGAIN IN SINGLE OR DOUBLE QUOTES), THE STRING WILL BE 

PRINTED FOLLOWED BY A COLON. TBI THEN WAITS FOR INPUT EXPR. 
AND SET THE VARIABLE TO THE VALUE OF THE EXPR. 

IF THE INPUT EXPR. IS INVALID, TBI WILL PRINT "WHAT?", 

"HOV/?" OR "SORRY" AND REPRINT THE PROMPT AND REDO THE INPUT. 

» THE EXECUTION WILL NOT TERMINATE UNLESS YOU TYPE CONTROL-C . 

* THIS IS HANDLED IN 'INPERR'. 

* 

* 'LET' IS FOLLOWED BY A LIST OF ITEMS SEPERATED BY COI^IMAS . 

» EACH ITEM CONSISTS OF A VARIABLE, /.N EOUAL SIGN, AND AN EXPR. 

* TBI EVALUATES THE EXPR. AND SET THE VARIBLE TO THAT VALUE. 

* TBI WILL ALSO HANDLE 'LET' COMMAND WITHOUT THE WORD 'LET'. 

» THIS IS DONE BY 'DEFLT'. 



0396 210000 


REM 


LODI HL,0 


REM 


0399 3E 




SKIP 


THIS IS LIKE 'IF 0’ 


039A DF 


IF 


EXPR 


* -m T jp 


039B 7C 




LOD A,H 


IS THE EXPR.-0? 



12 



48 



03 9C 


35 




lOR 


L 




039D 


C24902 




JMP 


N2 , RUNSML 


NO, CONTINUE 


H3A0 


CD3206 




CALL 


FNDSKP 


YES, SKIP REST OF LINE 


03A3 


D24202 




JMP 


NC,RUNTSL 


AND RUN THE NEXT LINE 


03A6 


Cl 




RSTART 


IF NO NEXT, RE-START 


03A7 


2A0508 


INPERR 


LD 


HL,STKINP 


INPERR 


03AA 


F9 




LOD 


SP,HL 


RESTORE OLD SP 


03AB 


El 




POP . 


HL 


AND OLD ’CURRNT’ 


03AC 


220108 




ST 


HL , CURRNT 




03AF 


D1 




POP 


DE 


AOT OLD TEXT POINTER 


0330 


D1 




POP 


DE 


REDO INPUT 


03B1 




INPUT 


EQU 


* 


INPUT 


03B1 


D5 


IPl 


PUSH 


DE 


SAVE IN CASE OF ERROR 


03B2 


CD4806 




CALL 


QTSTG 


IS NEXT ITEM A STRING? 


03B5 


C3BF03 




JMP 


IP2 


NO 


03B8 


FF 




TSTV 




YES . BUT FOLLOWED BY A 


03B9 


DAF903 




JMP 


C, IP4 


VARIABLE? NO. 


03BC 


C3CF03 




JMP 


IP3 


YES . INPUT VARIABLE 


03BF 


D5 


IP2 


PUSH 


DE 


SAVE FOR ’PRTSTG’ 


03C0 


FF 




TSTV 




MUST BE VARIABLE NOW 


03C1 


DAA405 




JMP 


C,QWHAT 


"WHAT?" IT IS NOT? 


03C4 


lA 




LD 


A,( DE) 


GET READY FOR ’PRTSTG’ 


03C5 


4F 




LOD 


C,A 




03C6 


97 




SUB 


A 




03C7 


12 




ST 


A,C DE) 




03C8 


D1 




POP 


DE 




03C9 


CD3C06 




CALL 


PRTSTG 


PRINT STRING AS PROMPT 


03CC 


79 




LOD 


A,C 


RESTORE TEXT 


03CD 


IB 




DEC 


DE 




03CE 


12 




ST 


A,( DE) 




03CF 


D5 


IP3 


PUSH 


DE 


SAVE IN CASE OF ERROR 


03D0 


EB 




XCH 


KL,DE 




03D1 


2A0108 




LD 


HL, CURRNT 


ALSO SAVE ’CURRNT’ 


03D4 


E5 




PUSH 


HL 




03D5 


21B103 




LODI 


Hi, IPl 


A NEGATIVE NUMBER 


03D8 


220108 




ST 


HL, CURRNT 


AS A FLAG 


03DB 


210000 




LODI 


HL,0 


SAVE SP TOO 


03DE 


39 




ADD 


HL,SP 




03DF 


220508 




ST 


HL,STKINP 




03E2 


D5 




PUSH 


DE 


OLD HL 


03E3 


3E3A 




LODI 


A, ' : ' 


PRINT THIS TOO 


03E5 


CDD605 




CALL 


GETLN 


AND GET A LINE 


03E8 


11371F @@00 




LODI 


DE, BUFFER 


POINTS TO SUFFER 


03EB 


DF 




EXPR 




EVALUATE INPUT 


03EC 


000000 




NOP 


3 


CAN BE 'CALL ENDCHK ’ 


03EP 


D1 




POP 


DE 


OK, GET OLD HL 


03 F0 


EB 




XCH 


HI.,DE 




03P1 


73 




LOD 


M,E 


SAVE VALUE IN VAR. 


03F2 


23 




INC 


HL 




03F3 


72 




LOD 


M,D 




03F4 


El 




POP 


HL 


GET OLD ’CURRNT’ 


03F5 


220108 




ST 


HL, CURRNT 




03F8 


D1 




POP 


DE 


AND OLD TEXT POINTER 


03F9 


FI 


IP4 


POP 


AF 


PURGE JUNK IN STACK 


03 FA 


CF . 




TSTC 


’ , * ,IP5 


IS NEXT CH. ’ , ’ ? 


03 FB 


2C 










03FC 


03 










03FD 


C3B103 




JMP 


IPl 


YES, MORE ITEMS. 



13 



49 



3A0B 

it 


?1 


IPS 


FINISH 




0401 


lA 


DEFLT 


LD 


A,( DE) 


*** DEFLT 


0402 


FE0D 




CMP I 


0CR 


EMPTY LINE IS OK 


0404 

if 


CA1004 




JMP 


Z,LT1 


ELSE IT IS ’LET' 


0407 


CD7E05 


LET 


CALL 


S.ETVAL 


★ LET *** 


04 0A 


CF 




TSTC 


’ , ’ ,LT1 


SET VALUE TO VAR. 


04 0B 


2C 










04 0C 


03 










04 0D 


C3010A 




JMP 


LET 


ITEM BY ITEM 


0410 

1* 


F7 


LTl 


FINISH 


UNTIL FINISH 





• ••• EXPR **• 

* 



• ’EXPR’ EVALUATES ARITHMETICAL OR LOGICAL EXPRESSIONS. 

• <EXPR>: :-<EXPR2> 

• <EXPR2XREL.OP. ><EXPR2> 

• WHERE <REL.OP.> IS ONE OP THE OPERATORS IN TABS AND THE 

• RESULT OF THESE OPERATIONS IS 1 IF TRUE AND 0 IF FALSE. 

• <EXPR2>s:-(+ OR -XEXPR3X+ OR -<EXPR3>)( ) 

• WHERE ( ) ARE OPTIONAL AND ( ) ARE OPTIONAL REPEATS. 

• <EXPR3>s : -<EXPR4>( <* OR / XEXPR4 >)(.... ) 

• <EXPR4> VARIABLE > 

• <FUNCTION> 

• (<EXPR>) 

• <EXPR> IS RECURSIVE SO THAT VARIABLE 'S' CAN HAVE AN <EXPR> 
» AS INDEX, FUNCTIONS CAN HAVE AN <EXPR> AS ARGUMENTS, AND 

• <EXPR4> CAN BE AN <EXPR> IN PARANTHESE. 



n 




EXPR 


CALL 


EXPR2 


THIS IS AT LOC, 18 


* 






PUSH 


HL 


SAVE <EXPR2 > VALUE 


0411 


21DE01 


EXPRl 


LODI 


HL,TAE8-1 


LOOKUP REL.OP. 


0414 


C3F801 




JMP 


EXEC 


GO DO IT 


0417 


CD 4 004 


XPll 


CALL 


XP18 


REL.OP. 


041A 


D8 




RET 


C 


NO, RETURN HL-0 


04 IB 


6F 




LCD 


L,A 


YES, RETURN HL-1 


04 1C 


C9 




RET 


U 




04 ID 


CD 4 004 


XP12 


CALL 


XP18 


REL.OP. 


04 20 


C8 




RET 


Z 


FALSE, RETURN HL-0 


04 21 


6F 




LOD 


L,A 


TRUE, RETURN HL-1 


04 2 2 


C9 




RET 


U 




04 2 3 


CD4004 


XP13 


CALL 


XP13 


REL . OP . ” > " 


04 2 6 


C8 




RET 


Z 


FALSE 


04 2 7 


D8 




RET 


c 


ALSO FALSE, HL-0 


04 2 8 


6F 




LOD 


L, A 


TRUE, HL-1 


04 2 9 


C9 




RET 


U 




04 2A 


CD 4 004 


XP14 


CALL 


XP18 


REL.OP. 


04 2D 


6F 




LOD 


L,A 


SET HL-1 


04 2E 


C8 




RET 


z ■ 


REL. TRUE, RETURN 


04 2 F 


D8 




RET 


c 




04 30 


6C 




LOD 


L,H 


ELSE SET HL-0 


0431 


C9 




RET 


U 




04 3 2 


CD4004 


XP15 


CALL 


XP18 


REL.OP. 


04 3 5 


C0 




RET 


NZ 


FALSE, RETRUN HL-0 


0436 


6F 




LOD 


L,A 


ELSE SET HL-1 


04 3 7 


C9 




RET 


U 




04 3 8 


CD4004 


XP16 


CALL 


XP18 


jiEL.OP. 



14 



50 



04 3B 


D0 




RET 


NC 


FALSE, RETURN HL-0 


04 3C 


6P 




LOD 


L,A 


ELSE SET HL-1 


043D 


C9 




RET 


U 




043E 


El 


XP17 


POP 


HL 


NOT REL.OP. 


043F 


C9 




RET 


U 


RETURN HL-<EXPR2> 


0440 


79 


xpia 


LOD 


A,C 


SUBROUTINE FOR ALL 


0441 


ElCl 




POP 


HL , BC 


REL.OP. ’S 


0443 


E5C5 




PUSH 


HL,BC 


REVERSE TOP OP STACK 


04 4 5 


4F 




LOD 


C,A 




044 6 


CD 5 504 




CALL 


EXPR2 


GET 2ND <EXPR2> 


04 4 9 


EB 




XCH 


HLiDE 


VALUE IN DE NOW 


044A 


E3 




XCH 


HL,( SP) 


1ST <EXPR2> IN HL 


044B 


CD7605 




CALL 


CKHLDE 


COOTARS 1ST WITH 2ND 


044 E 


D1 




POP 


DE 


RESTORE TEXT POINTER 


044F 


2 10000 




LODI 


HL,0 


SET HL-0, A-1 


0452 


3E01 




LODI 


A,1 




04 54 

Ik 


C9 




RET 


U 




0455 


CF 


EXFR2 


TSTC 


’ - • ,XP21 


NAGATIVE SIGN? 


0456 


2D 










04 57 


06 










0458 


2 10000 




LODI 


HL,0 


YES, FAKE ’0-’ 


04 5B 


C37F04 




JMP 


XP26 


TREAT LIKE SUBTRACT 


04 5E 


CF 


XP21 


TSTC 


' ,XP22 


POSITIVE SIGN? IGNORE 


045F 


2B 










0460 


00 










0461 


CD8904 


XP22 


CALL 


EXPR3 


1ST <EXPR3> 


04 64 


CF 


XP23 


TSTC 


' ,XP25 


ADD? 


04 6 5 


2B 










0466 


15 










04 6 7 


E5 




PUSH 


HL 


YES, SAVE VALUE 


04 6 8 


CD8904 




CALL 


EXPR3 


GET 2ND <EXPR3> 


04 6B 


EB 


XP24 


XCH 


HL,DE 


2ND IN DE 


046C 


E3 




XCH 


HL,( SP) 


1ST IN HL 


046D 


7C 




LOD 


A,H 


COMPARE SIGN 


046E 


AA 




XOR 


D 




046F 


7A 




LOD 


A,D 




0470 


19 




ADD 


HL ( DE 




0471 


D1 




POP 


DE 


RESTORE TEXT POINTER 


0472 


FA6404 




JMP 


S ,XP23 


1ST 2ND SIGN DIFFER 


0475 


AC 




XOR 


H 


1ST 2ND SIGN EQUAL 


04 7 6 


P26404 




JMP 


NS ,XP23 


SO IS RESULT 


04 7 9 


C39F00 




JMP 


QHOW 


ELSE WE HAVE OVERFLOW 


04 7C 


CF 


XP25 


TSTC 


,XP42 


SUBTRACT? 


047D 


2D 










047E 


83 










047F 


E5 


XP26 


PUSH 


HL 


YES, SAVE 1ST <EXPR3> 


0480 


CD8904 




. CALL 


EXPR3 


GET 2ND <EXPR3> 


04 83 


CD6A05 




CALL 


CHGSGN 


2;egate 


04 86 

* 


C36E04 




JMP 


XP24 


AND ADD THEM 


0489 


CDE604 


EXPR3 


CALL 


EXPR4 


GET 1ST <EXPR4> 


04 8C 


CF 


. XP31 


TSTC 


' * ’ ,XP34 


24ULTIPLY? 


04 8D 


2A 










048E 


2C 










048F 


E5 




PUSH 


HL 


YES, SAVE 1ST 


0490 


CDE604 




CALL 


EXPR4 


AND GET 2ND <EXPR4> 


04 9 3 


0600 




LODI 


B,0 


CLEAR B FOR SIGN 


04 9 5 


CD6705 




CALL 


CHKSGN 


CHECK SIGN 


0498 


EB 




XCH 


HLiDE 


2ND IN PE NOW 



15 



51 



0-499 


E3 




XCH 


HL,( SP) 


1ST IN HL 


049A 


CD6705 




CALL 


CHKSGN 


CHECK SIGN OF 1ST 


049D 


1C 




LCD 


A,H 


IS HL > 255 ? 


04 9 E 


B7 




lOR 


A 




049F 


CAA804 




JMP 


Z,XP32 


NO 


04A2 


7A 




LCD 


A,D 


YES, HOW ABOUT DE 


04A3 


B2 




lOR 


D 




04A4 


EB 




XCH 


HL,DE 


PUT SMALLER IN HL 


04A5 


C2A000 




JMP 


NZ ,AHOW 


ALSO >, WILL OVERFLOW 


04A8 


7D 


XP3 2 


LCD 


A,L 


THIS IS DUMB 


04A9 


2 10000 




LODI 


KL,0 


CLEAR RESULT 


04AC 


37 




lOR 


A 


ADD AND COUNT 


04AD 


CAD804 




JMP 


Z,XP35 




04 B0 


19 


XP33 


ADD 


HL,DE 




04B1 


DAA000 




JMP 


C ,AHOW 


OVERFLOW 


04B4 


3D 




DEC 


A 




04B5 


C2B004 




JMP 


NZ,XP33 




04B8 


C3D804 




JMP 


XP35 


FINISHED 


04BB 


CF 


XP34 


TSTC 


V’ ,XP42 


DIVIDE? 


04BC 


2F 










04 BD 


44 










04BE 


E5 




PUSH 


HL 


YES, SAVE 1ST <EXPR4 > 


04BF 


CDE604 




CALL 


EXPR4 


AND GET 2ND ONE 


04C2 


0600 




LODI 


B,0 


CLEAR B FOR SIGN 


04C4 


CD6705 




CALL 


CHKSGN 


CHECK SIGN OF 2ND 


04C7 


EB 




XCH 


HL,DE 


PUT 2ND IN DE 


04C8 


E3 




XCH 


HL,( SP) 


GET 1ST IN HL 


04C9 


CD6705 




CALL 


CHKSGN 


CHECK SIGN OF 1ST 


04CC 


7A 




LOD 


A,D 


DIVIDE BY 0? 


04 CD 


B3 




lOR 


E 




04CE 


CAA000 




JMP 


Z,AHOW 


SAY "HOW?” 


04D1 


C5 




PUSH 


BC 


ELSE SAVE SIGN 


04D2 


CD4A05 




CALL 


DIVIDE 


USE SUBROUTINE 


04D5 


6069 




LOD 


HL,BC 


RESULT IN HL NOW 


04D7 


Cl 




POP 


BC 


GET SIGN BACK 


04D8 


D1 


XP35 


POP 


DE 


AND TEXT POINTER 


04 D9 


7C 




LOD 


A,H 


HL MUST BE + 


04 DA 


B7 




lOR 


A 




04DB 


FA9F00 




JMP 


S , QHOW 


ELSE IT IS OVERFLOW 


04 DE 


78 




LOD 


A.B 




04DF 


B7 




lOR 


A 




04 E0 


FC6A05 




CALL 


S .CHGSGN 


CHANGE SIGN IF NEEDED 


04E3 

* 


C38C04 




J!4P 


XP31 


LOOK FOR MORE TERMS 


04E6 


21A001 


EXPR4 


LODI 


HL,TAB4-1 


FIND FUNCTION IN TAB4 


04E9 


C3F801 




JMP 


EXEC 


AND GO DO IT 


04 EC 


FF 


XP40 


TSTV 




NO, NOT A FUNCTION 


04 ED 


DAF504 




JMP 


C ,XP41 


NOR A VARIABLE 


04 F0 


7E 




LOD 


A,M 


VARIABLE 


04F1 


23 




INC 


HL 




04F2 


66 




LOD 


H,M 


7ALUE IN HL 


04F3 


6F 




LOD 


L,A 




04F4 


C9 




RET 


U 




04 F5 


CD7700 


XP41 


CALL 


TSTNUM 


OR IS IT A NUMBER 


04F8 


78 




LOD 


A,B 


^ OF DIGIT 


04F9 


B7 




lOR 


A 




04 FA 


C0 




RET 


NZ 


OK 


04 FB 


CF 


PARK 


TSTC 


M ' ,XP43 


NO DICIT, MUST BE 


04 FC 


28 










04 FD 


05 











16 



52 



